home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 SRC / Tools / bgen / test.py < prev   
Encoding:
Text File  |  1996-03-20  |  4.3 KB  |  156 lines  |  [TEXT/Pyth]
  1. # This is an absolutely horrid piece of code.
  2. # I wrote it to exercise the (mostly automatically generated) interfaces to the
  3. # Mac Toolbox that I was in the midst of creating.
  4. # It consists of a fairly complete Main loop -- it handles most of the stuff
  5. # that every application should have:
  6. # 
  7. # - moving windows
  8. # - resizing windows
  9. # - hanling the zoombox
  10. # - handling the close box
  11. # - handling the apple menu (including starting desk acc's)
  12. # - key events (including key repeat)
  13. # - update events
  14. # 
  15. # It also detects clicks in controls and tracks the control.
  16.  
  17. from Evt import *
  18. from Win import *
  19. from Dlg import *
  20. from Ctl import *
  21. from Menu import *
  22. from Qd import *
  23. from Res import *
  24. import AE
  25.  
  26. from Events import *
  27. from Windows import *
  28. from Controls import *
  29.  
  30. import MacOS
  31. MacOS.EnableAppswitch(0) # Stop Python from ever getting events itself
  32.  
  33. everywhere = (-32000, -32000, 32000, 32000)
  34. # NB using 0x7fff doesn't work -- apparently a little slop must be present
  35.  
  36. print "There are now", len(dir()), "symbols in the name space!"
  37.  
  38. def main():
  39.     appleid = 1
  40.     ClearMenuBar()
  41.     applemenu = NewMenu(appleid, "\024")
  42.     applemenu.AppendMenu("All about me...;(-")
  43.     applemenu.AppendResMenu('DRVR')
  44.     applemenu.InsertMenu(0)
  45.     DrawMenuBar()
  46.     
  47.     winwidth = 200
  48.     winheight = 100
  49.     r = (30, 60, 30+winwidth, 60+winheight)
  50.     w = NewWindow(r, "Hello world", 1, zoomDocProc, -1, 1, 0)
  51.     resizerect = (10, 20, 70, 40)
  52.     resize = NewControl(w, resizerect, "Resize", 1, 0, 0, 1, pushButProc, 0)
  53.     quitrect = (90, 20, 130, 40)
  54.     quit = NewControl(w, quitrect, "Quit", 1, 0, 0, 1, pushButProc, 0)
  55.     while 1:
  56.         doit, event = WaitNextEvent(-1,0)
  57.         if doit:
  58.             SetPort(w)
  59.             (what, message, when, where, modifiers) = event
  60.             if what == mouseDown:
  61.                 partcode, win = FindWindow(where)
  62.                 if partcode == inDrag: # transvestites, take note
  63.                     win.DragWindow(where, everywhere)
  64.                 elif partcode == inGoAway:
  65.                     if win.TrackGoAway(where):
  66.                         break
  67.                 elif partcode in (inZoomIn, inZoomOut):
  68.                     SetPort(win) # !!!
  69.                     if win.TrackBox(where, partcode):
  70.                         win.ZoomWindow(partcode, 1)
  71.                 elif partcode in (inSysWindow, inDesk):
  72.                     SystemClick(event, win)
  73.                 elif partcode == inMenuBar:
  74.                     result = MenuSelect(where)
  75.                     id = (result>>16) & 0xffff
  76.                     if id:
  77.                         item = result & 0xffff
  78.                         print "Menu id", id, ", item", item
  79.                         if id == appleid:
  80.                             name = applemenu.GetMenuItemText(item)
  81.                             print name
  82.                             OpenDeskAcc(name)
  83.                     HiliteMenu(0)
  84.                 elif partcode == inGrow:
  85.                     result = win.GrowWindow(where, everywhere)
  86.                     if result:
  87.                         winheight = (result>>16) & 0xffff
  88.                         winwidth = result & 0xffff
  89.                         win.SizeWindow(winwidth, winheight, 0)
  90.                         SetPort(win)
  91.                         InvalRect(everywhere)
  92.                 elif partcode == inContent:
  93.                     local = GlobalToLocal(where)
  94.                     print "local =", local
  95.                     ctltype, control = FindControl(local, win)
  96.                     if ctltype and control:
  97.                         pcode = control.TrackControl(local)
  98.                         if pcode:
  99.                             if control is resize:
  100.                                 if winwidth == 200:
  101.                                     winwidth = 300
  102.                                 else:
  103.                                     winwidth = 200
  104.                                 win.SizeWindow(winwidth, winheight, 0)
  105.                                 SetPort(win)
  106.                                 InvalRect(everywhere)
  107.                             elif control is quit:
  108.                                 break
  109.                     else:
  110.                         print ctltype, control
  111.                 else:
  112.                     print "Mouse down at", where, "(global)"
  113.                     print partcode, win
  114.             elif what == mouseUp:
  115.                 print "Mouse up at", where, "(global)"
  116.             elif what == keyDown:
  117.                 print "Key down:", hex(message), hex(modifiers)
  118.                 char = chr(message & 0xff)
  119.                 keycode = (message & 0xff00) >> 8
  120.                 print 'char:', `char`, '; keycode:', keycode
  121.                 if char == 'Q': break
  122.             elif what == autoKey:
  123.                 print "Key repeat:", hex(message), hex(modifiers)
  124.             elif what == updateEvt:
  125.                 print "update Event", message, modifiers
  126.                 w.BeginUpdate()
  127.                 EraseRect(everywhere)
  128.                 MoveTo(0, 0)
  129.                 LineTo(100, 100)
  130.                 TextSize(9)
  131.                 DrawString("This is a dead parrot!")
  132.                 MoveTo(0, 100)
  133.                 LineTo(100, 0)
  134.                 Move(0, 20)
  135.                 TextSize(12)
  136.                 DrawString("Nobody expects the Spanish Inquisition")
  137.                 TextSize(20)
  138.                 DrawString("!")
  139.                 UpdateControls(w)
  140.                 w.DrawGrowIcon()
  141.                 w.EndUpdate()
  142.             elif what == activateEvt:
  143.                 print "activateEvt:", message, modifiers
  144.                 InitCursor()
  145.             elif what == osEvt:
  146.                 print "osEvt:", message, where, modifiers
  147.             elif what == 23:
  148.                 try:
  149.                     AE.AEProcessAppleEvent(event)
  150.                 except AE.Error, msg:
  151.                     print "AE.Error:", msg
  152.             else:
  153.                 print "???", event
  154.  
  155. main()
  156.